Imports TeamUp.dado
Imports TeamUp.GarantiaTransacional

Public Class NeDependente
    Inherits Model

    Public Sub New(ByVal objGarantiaTransacional As GTransacional)
        GarantiaTransacional = objGarantiaTransacional
    End Sub

    Public Sub cadastarDependente(Optional ByVal strNome As String = "")
        Dim objDaDependente As DaDependente
        GarantiaTransacional.iniciarTransacao("neDependente.cadastarDependente".ToUpper)
        Try
            objDaDependente = New DaDependente(GarantiaTransacional)

            objDaDependente.cadastrarDependente("1", strNome, "3")

            GarantiaTransacional.commit("neDependente.cadastarDependente".ToUpper)
        Catch ex As Exception
            GarantiaTransacional.rollBack("neDependente.cadastarDependente".ToUpper)
            Throw ex
        End Try
    End Sub
End Class
